//    255   100,100
GETSCREEN
WHILE(PXL (100, 100) ! 255) //        
   WAITMS (100)
   GETSCREEN
END_CYC